home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / CDRom / YACDP1.2.lha / YACDP 1.2 / AREXX / DumpVars.yacdp < prev    next >
Encoding:
Text File  |  1994-12-05  |  1.5 KB  |  56 lines
  1. /* $VER: 1.2 © 1994 by Frank Würkner. Show all internal variables of YACDP.*/
  2.  
  3. SIGNAL ON SYNTAX                            /* check syntax                */
  4. SIGNAL ON ERROR                             /* check if command succeeds   */
  5. OPTIONS FAILAT 6                            /* ignore warnings             */
  6. ADDRESS 'YACDP'                             /* send to YACDP               */
  7.  
  8. /* -------------------------- BEGIN OF YOUR CODE ------------------------- */
  9.  
  10. SIGNAL OFF ERROR
  11. OPTIONS FAILAT 11
  12.  
  13. 'GETVAR STATUS'
  14.  
  15. do i=1 to 38
  16.   varname=word('DEVICE BOARD UNIT LUN CDROMVOL AMIVOL CDROMBAL
  17.  AMIBAL PLAYMODE REPEATALL REPEATTRACK VIASCSI STEREO LOWPASSFILTER
  18.  STATUS GUIOPEN VIASCSIMODE LANGUAGE WINDOWADR NOREQ RETRYS ALTERNATETIME
  19.  VENDORID VENDOR PRODUCT REVISION SCSIVER MAXBUSWIDE CDLEN CDNAME BY MAXTRACK
  20.  TRACK INDEX BLOCK RELBLOCK SHUFFLELIST PROGRAMLIST',i)
  21.  if (i = 20) then do
  22.    say '<RETURN>'
  23.    pull DUMMY
  24.    say '9B'X'0;0H'||'9B'X'J'
  25.  end
  26.  'GETVAR' varname 'VAL'
  27.  if (RC = 0) then do
  28.     SAY varname copies(' ',14-length(varname))'=' VAL
  29.  end
  30. end
  31.  
  32. if (STATUS > 2) then do
  33.   say '<RETURN>'
  34.   pull DUMMY
  35.   say '9B'X'0;0H'||'9B'X'J'
  36.   'GETVAR MAXTRACK'
  37.   do i=1 to MAXTRACK
  38.     'GETVAR SONGNAME NUM='i
  39.     say i'. track:' SONGNAME
  40.     'GETVAR TRACKSTART NUM='i
  41.     'GETVAR TRACKLEN NUM='i
  42.     say 'starting at block' TRACKSTART '('TRACKLEN' blocks long)'
  43.   end
  44. end
  45.  
  46. /* --------------------------- END OF YOUR CODE -------------------------- */
  47. EXIT
  48.  
  49. SYNTAX:
  50. SAY "AREXX error at line" SIGL ":" ERRORTEXT(RC)
  51. EXIT
  52.  
  53. ERROR:
  54. SAY "YACDP error at line" SIGL ":" ERR
  55. EXIT 
  56.